home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / infix / sgol-runtime.scm < prev    next >
Text File  |  1995-10-13  |  215b  |  12 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3.  
  4. (define (%unspecific)
  5.   (if #f #f))
  6.  
  7. (define (!= x y)
  8.   (not (= x y)))
  9.  
  10. (define (%tuple . rest)
  11.   (list->vector (cons 'tuple rest)))
  12.